home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Printing Primer ƒ / EjectPage.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-08  |  1021 b   |  47 lines  |  [TEXT/KAHL]
  1. /*******************************************\
  2. *    file:         PrintFootNote.c                *
  3. *    version:    0.1ß                        *
  4. *     XFCN ID        507                            *
  5. *                                            *
  6. * Eject a page                              *
  7. *                                            *
  8. * -----------------------------------------    *
  9. * By:    Donald Koscheka                        *
  10. * Date:    30-OCT-89                            *
  11. * ©    Copyright 1989, Donald Koscheka            *
  12. *    All Rights Reserved                        *
  13. *                                            *
  14. * -----------------------------------------    *
  15. \*******************************************/
  16.  
  17. #include <MacTypes.h>
  18. #include <MemoryMgr.h>
  19. #include <ResourceMgr.h>
  20. #include <OSUtil.h>
  21. #include <HyperXCmd.h>
  22. #include <HyperUtils.h>
  23. #include <PrintMgr.h>
  24. #include "ReportUtils.h"
  25.  
  26. pascal void main( paramPtr )
  27.     XCmdBlockPtr    paramPtr;
  28. /**********************************
  29. * params[0] == new page number.
  30. **********************************/
  31. {
  32.     Handle        pH;
  33.     pInfoPtr    pp;
  34.     long        theNum;
  35.     char        thePage[32];
  36.     
  37.     if(  pH = GetSystemResource( PAGE_INFO, PAGE_ID )  ){
  38.         pp = (pInfoPtr)*pH;
  39.             
  40.         EjectPage( pp );
  41.         pp->pagecount = 1;
  42.     }
  43.     
  44.     paramPtr->returnValue = NIL;
  45. }
  46.  
  47.